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TITLE TSRTX 
ENABL LC 
DSABL GBL 



Non-resident Real-Time Support Module 



> TSRTX is the non-resident portion of the TSX-Plus real-time support 
i code. 

; Copyright <c> 1980,1981,1982,1983,1984,1985,1986,1987,1988,1989. 
; S&H Computer Systems, Inc. Nashville, Tennessee 

> All rights reserved. 

i 

. CSECT TSRTX 
TSRTX: . RAD50 /RTXV > Overlay id 

i 
i Macro definitions 

i 

> Macro to call a routine in another system overlay r eg ion. 
j 

. MACRO OCALL ENTADD 

. IF B, ENTADD 

.ERROR ; OCALL without entry address 



. ENDC 




CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 


• Global definitions 



. GLOBL RTSPND, RTRSUM 

. GLOBL RTSTOP, RTDEV, RTEMT 

Global references 

. GLOBL LSW2, SETERR, EMTBLK, BADEMT, LPARBS, EMTXIT 

. GLOBL SIOMAP, LSW6, SETMAP, VCSJOB, VC*VEC, VC*RTN 

. GLOBL UEXINT, CQ*JOB, CQ*RO, CQ*RTN, QCOMPL 

. GLOBL URO, VC*PRI, EMTPS, INTPRI, RTLOCK 

. GLOBL S*TWFN, LBSPRI, *MLOCK, PO*LOK 

. GLOBL OVRHC, UEXRTN, VUXIFL 

. GLOBL VCBBAS, VCBEND, VC**SZ, PO*MEM, PO*RT, PRIVCO 

. GLOBL LSPND, CURCP, S*SPND, CHKABT 

. GLOBL QHDSPN, DEVLL, DEVLS, CQ*PRI, CQ*PA5, CQ*RNS 

. GLOBL DOSCHD, EXCJOB, CINFLG 

. GLOBL RPAR, RPDR, RDAR, RDDR, VF*DIR, VC*FLG, VF*DET 

. GLOBL UPARO, UPDRO, CUPARO, CUPDRO 

. GLOBL UPMODE, UPMODE, KPAR5, CQ*CP, CP*STD, CP$RT 

. GLOBL CUPARO, CUPDRO, CQ*R 1 , *UDSPC, LSW1 1 

. GLOBL GETQ, CORUSR, MAXPRI, S*RT, VPRIHI 



MACROS TO ENABLE AND DISABLE INTERRUPTS. 



PS 



177776 
. MACRO DISABL 
BIS #340, @#PS 
. ENDM DISABL 



> PROCESSOR STATUS WORD 
; DISABLE INTERRUPTS 
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58 . MACRO ENABL i ENABLE INTERRUPTS 

59 BIC INTPRI,@#PS 

60 . ENDM ENABL 
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3BTTL RTEMT 



Real-time emt entry point 



RTEMT is jumped to from TSEMT whenever one of the real-time emt's 

is executed. 

The general form of a real-time emt is 

BYTE sub-function. 140 

.WORD Argl ; (optional) 

.WORD Arg2 > (optional) 

WORD Arg3 ; (optional) 

Where sub-function is a code that indicates which real-time 
function is to be performed. (See vector- at end of this routine) 

See if user is authorized to use real-time emt's. 

RTEMT: 

Get sub-function code from arg block and jump to processing routine 



1*: 



>*: 



MOVB EMTBLK, R5 

ASL R5 

CMP R5, #MXRTFN 

BLOS 2* 

JMP BADEMT 

JMP @RTEMTV(R5) 



GET SUB-FUNCTION CODE 

CONVERT TO WORD TABLE INDEX 

IS IT VALID SUB-FUNCTION CODE? 

BR IF OK 

INVALID SUB -FUNCTION VALUE 

JUMP TO PROCESSING ROUTINE FOR EMT 



Define sub-function jump vector. 



RTEMTV: 


. WORD 


RTCVAD 




. WORD 


RTPEEK 




. WORD 


RTPOKE 




. WORD 


RTBIS 




. WORD 


RTBIC 




. WORD 


RTIOMP 




. WORD 


RTRMMP 




. WORD 


RTLOCK 




. WORD 


RTUNLK 




. WORD 


RTCVEC 




. WORD 


RTRVEC 




. WORD 


RTFREZ 




. WORD 


RTEXJB 




. WORD 


RTALJB 




. WORD 


RTSPL 




. WORD 


RTVMAP 




. WORD 


RTDVEC 




. WORD 


RTCMPL 




. WORD 


RTCVDA 


i 

MXRTFN 


S= 


. -RTEMTV-2 



00 - Conver 

01 - Peek a 

02 - Poke i 

03 - Bit se 

04 - Bit cl 

05 - Map vi 

06 - Map vi 

07 - Lock j 

10 - Unlock 

11 - Connec 

12 - Discon 

13 - Lock j 

14 - Gain e 

15 - Releas 

16 - Set pr 

17 - Map vi 

20 - Connec 

21 - Schedu 

22 ~ Conver 
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43 
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49 
50 
51 
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000074 
000102 
000104 
000110 
000114 
000116 



000124 
000130 
000134 
000136 
000142 
000146 



000154 
000156 
000162 
000164 
000166 
000172 
000176 
000200 
000202 
000204 
000206 



000212 
000216 
000220 



SBTTL RTCVAD, RTCVDA 



Convert virtual to physical address 



The RTCVAD and RTCVDA emts are used to convert a 16~bit virtual address 
to a 22-bit physical address. RTCVAD for I-space and RTCVDA for D-space. 

Inputs: 
Argl = Virtual address 
Arg2 = Address of 2-word block to receive 22-bit address result 

Outputs: 
Result buffer in user's area receives 22-bit physical address 
low-order 16-bits stored in 1st word and high-order 2-bits positioned 
in bit positions 4-5 are stored in 2nd word. 

Convert specially mapped D-space < 22* 140) 



032761 
001410 
004767 
005762 
001415 
016205 
000407 



004767 
005762 
001405 
016205 
042700 
000402 



0000000 000000G RTCVDA: BIT 

BEG 
CALL 
TST 
BEG 
MOV 
BR 



000102 
000000G 

OOOOOOG 



000062 
OOOOOOG 

OOOOOOG 
160000 



000150 016105 OOOOOOG 



005004 
073427 
060005 
005504 
072427 
016703 
010546 
106623 
010446 
106613 
000167 



000006 



000004 
000004G 



OOOOOOG 



016700 
010003 
005002 



000002G 



#*UDSPC, LSW1KR1 ) » Has user enabled D-space? 

RTCVAD * If not* use I-space routine 

RTCVC1 * Split virtual address to par and offset 

RDDR<R2) » Is this region specially mapped?' 

RTCVC3 * Br if not* use default mapping 

RDAR(R2)*R5 * Get physical address for this par 

RTCVC2 » Br to special mapping adjustment 



Convert specially mapped 1-space <0* 140) 



RTCVAD: CALL 
TST 
BEQ 
MOV 

RTCVC2: BIC 
BR 



RTCVC1 

RPDR<R2) 

RTCVC3 

RPAR<R2)*R5 

#160000* RO 

RTCVC4 



Split virtual address to par and offset 

IS THIS REGION SPECIALLY MAPPED? 

BR IF NOT 

GET PHYSICAL ADDRESS FOR THIS PAR 

Remove PAR # from virtual address 

Go merge back with offset and return 



No special mapping* treat as linear offset from job base 
RTCVC3: MOV LPARBS<R1 ) * R5 * GET BASE 64-BYTE BLOCK NUMBER OF JOB REGION 



CLEAR HIGH-ORDER WORD 

CONVERT TO 22-BIT PHYSICAL ADDR OF JOB BASE 

ADD VIRTUAL ADDRESS offset 

PROPOGATE CARRY 

PUT 2 HIGH-ORDER BITS IN BIT POSITIONS 4-5 

GET ADDRESS OF BUFFER WHERE RESULT GOES 

STACK LOW-ORDER PART OF RESULT 

STORE INTO USER'S BUFFER 

STACK HIGH-ORDER PART OF RESULT 

STORE INTO USER'S BUFFER 

FINISHED 



Common subroutine for virtual to physical address conversions 
Converts user virtual address <from EMTBLK+2) to PAR index in R2 



* PAR base in 


R5, merge 


ba 


RTCVC4: CLR 


R4 




ASHC 


#6, R4 




ADD 


RO, R5 




ADC 


R4 




ASH 


#4, R4 




MOV 


EMTBLK+4, 


R3 


MOV 


R5*-(SP) 




MTPD 


<R3) + 




MOV 


R4, -<SP> 




MTPD 


<R3) 




JMP 


EMTXIT 





RTCVC1: MOV 
MOV 
CLR 



EMTBLK+2, RO 

RO, R3 

R2 



, GET VIRTUAL ADDRESS 

, Copy to low order of R2-R3 pair 

* SET UP FOR SHIFT 
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RTCVADi RTCVDA — Convert virtual to physical address 

58 000222 073227 000003 ASHC #3, R2 i GET 3 HIGH-ORDER BITS OF VIRTUAL ADDRESS 

59 000226 006302 ASL R2 ) #2 TO CONVERT TO WORD TABLE INDEX 

60 000230 000207 RETURN 
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9 
10 
11 
12 

13 000232 

14 000236 

15 000242 
16 

17 
18 

19 000244 

20 000246 

21 000252 

22 000256 

23 000262 

24 000266 

25 000270 

26 000274 
27 

28 
29 

30 000300 

31 000304 

32 000310 

33 000312 

34 000316 

35 000322 

36 000324 
37 

38 
39 
40 
41 
42 

43 000330 

44 000332 

45 000334 

46 000340 

47 000342 

48 000346 

49 000352 

50 000356 

51 000362 

52 000364 

53 000366 

54 000370 

55 000372 

56 000376 

57 000402 



004767 
016705 
001016 



005002 
005062 
005062 
062702 
020227 
101767 
004767 
000167 



016702 
020227 
101404 
012700 
000167 
006302 
016704 



010500 
001450 
020027 
101402 
012700 
010462 
010462 
010462 
060004 
160005 
005300 
000300 
042700 
052700 
105767 



001534 
000006G 



OOOOOOG 
OOOOOOG 
000002 
000016 

OOOOOOG 
OOOOOOG 



000002G 
000007 

177767 
OOOOOOG 

000004G 



000200 

000200 
OOOOOOG 
OOOOOOG 
OOOOOOG 



100377 
000002 
0000 10G 



SBTTL RTVMAP 
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Map virtual address to physical region 



This EMT is used to map a virtual region of memory to a specified 
physical reaion. 



RTVMAP: 



. BYTE 
. WORD 
. WORD 
. WORD 
. BYTE 
. BYTE 

CALL 

MOV 

BNE 



17, 140 

Base PAR # <0~7) 

Physical base (64-byte block #> 

Region length (# 64-byte blocks) 

Access control <0==>read only, l==>read/wr i te ) 

Cache control <0==>enable caching* l==>bypass cache) 



PRVMEM 
EMTBLK+6, R5 
10* 



;Can we access physical memory' 

;GET SIZE OF REGION 

;BR IF MAPPING NEW REGION 



Reset all mapping for job 



11*: 



CLR 


R2 


CLR 


RPAR<R2) 


CLR 


RPDR<R2) 


ADD 


#2, R2 


CMP 


R2, #14. 


BLOS 


11* 


CALL 


SETMAP 


JMP 


EMTXIT 



; CLEAR PAR 
; AND PDR 

} DONE ALL? 

i BR IF MORE TO DO 

; RESET MAPPING FOR JOB 

; FINISHED 



Map new virtual address to physical region 



10*: 



1*: 



MOV 


EMTBLK+2, R2 ; 


CMP 


R2, #7 ; 


BLOS 


1* ; 


MOV 


#-11, RO ; 


JMP 


SETERR 


ASL 


R2 ; 


MOV 


EMTBLK+4, R4 i 



GET PAR # 

MUST BE IN RANGE 0-7 

BR IF OK 

ABORT IF TOO LARGE 

; CONVERT TO WORD TABLE INDEX 
iGET PHYSICAL ADDRESS BASE 



Set up mapping for each PAR that is affected by this request. 
R2 « 2#PAR # 

R4 = Physical address base 
R5 = Size of region being mapped 

2$: MOV R5, RO ; GET # 64-BYTE BLOCKS LEFT TO MAP 

BR IF FINISHED 

EACH PAR CAN ONLY MAP 200 BLOCKS 
BR IF OK 
MAP 200 BLOCKS THROUGH THIS PAR 

3*: MOV R4, RPAR(R2) i SET PAR BASE ADDRESS 

LOAD HARDWARE MAP REGISTER 

SAVE MAPPING INFO IN CONTEXT BLOCK 

ADVANCE PAR BASE ADDRESS 

DECREASE # BLOCKS REMAINING TO BE MAPPED 

PDR VALUE IS ACTUAL-1 

POSITION SIZE FOR PLF FIELD IN PDR 

CLEAR ALL BUT PLF FIELD IN PDR VALUE 

SET READ-ENABLE FLAG FOR PDR 

IS WRITE ACCESS ALLOWED? 



MOV 


R5, RO 


BEG 


5* 


CMP 


RO, #200 


BLOS 


3* 


MOV 


#200, RO 


MOV 


R4, RPAR(R2) 


MOV 


R4, UPAR0<R2) 


MOV 


R4, CUPAR0<R2) 


ADD 


RO, R4 


SUB 


RO, R5 


DEC 


RO 


SWAB 


RO 


BIC 


#- x C<77400>, RO 


BIS 


#2, RO 


TSTB 


EMTBLK+10 
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58 000406 

59 000410 

60 000414 

61 000420 

62 000422 

63 000426 

64 000432 

65 000436 

66 000442 

67 000446 

68 000452 
69 

70 
71 
72 000454 



001402 
052700 
105767 
001402 
052700 
010062 
010062 
010062 
062702 
020227 
101726 



000004 
00001 1G 

100000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 

000016 



4*: 



6*: 





BEG 


4* 




BIS 


#4, RO 




TSTB 


EMTBLK+11 




BEG. 


6$ 




BIS 


#100000, RO 




MOV 


RO, RPDR<R2> 




MOV 


RO, UPDR0<R2) 




MOV 


RO, CUPDR0(R2) 




ADD 


#2, R2 




CMP 


R2, #2*7 




BLOS 


2* 


r 


imshed 





000167 OOOOOOG 



5*: 



JMP 



EMTXIT 



Page 4-1 



; BR IF NOT 

iSET WRITE-ENABLE FLAG FOR PDR 

; BYPASS CACHE? 

;BR IF NOT 

;SET CACHE-BYPASS FLAG 

; SET THE PDR VALUE 

; LOAD HARDWARE MAP REGISTER 

i SAVE MAPPING INFORMATION IN JOB CONTEXT BLOCK 

i ADVANCE PAR INDEX # 

; ONLY DO UP TO PAR # 7 

; LOOP IF MORE PAR 'S TO MAP 



j FINISHED 
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RTFREZ — Lock job in memory without repositioning 



< 



o 



SBTTL RTFREZ — Lock job in memory without repositioning 



3 i The RTFREZ emt locked a job in memory without repositioning it. 

4 i 

5 000460 032767 OOOOOOG OOOOOOG RTFREZ: BIT #PO*LOK> PR IVCO ; Do we have privilege to do this? 

6 000466 001001 BNE 20* ; Br if yes 

7 000470 005000 CLR RO ; Return error code 

8 000472 052761 OOOOOOG OOOOOOG 20*: BIS #*MLOCK, LSW6(R1 ) i LOCK JOB IN MEMORY 

9 000500 000167 OOOOOOG JMP EMTXIT J FINISHED 
10 

11 .SBTTL RTUNLK — Unlock job from memory 

12 i 



13 ; The RTUNLK emt unlockes a job from memory. 

• 14 ; 



15 000504 042761 OOOOOOG OOOOOOG RTUNLK: BIC #*MLOCK.. LSW6CR1 )i UNLOCK FROM MEMORY 

16 000512 000167 OOOOOOG JMP EMTXIT i FINISHED 
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004767 001250 
017767 000002G 



TSRTX — Non-resident Real-Time 
RTPEEK -- Peek at I/O page 



i 
2 
3 
4 
5 
6 
7 
B 
9 
10 

11 000516 

12 000522 

13 000530 
14 

15 
16 
17 
IS 
19 
20 
21 
22 

23 000532 

24 000536 

25 000544 
26 

27 
28 
29 
30 
31 
32 
33 
34 

35 000546 

36 000552 

37 000560 
38 

39 
40 
41 
42 
43 
44 
45 
46 

47 000562 

48 000566 

49 000574 
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. SBTTL RTPEEK — Peek at I/O page 

RTPEEK emt is used to access a single word in the I/O page. 

Inputs: 
Argl = Address of cell in I/O page to be accessed. 

Outputs: 
Contents of cell are returned to user in RO. 

RTPEEK: CALL PRVMEM i Can we access physical memory? 

OOOOOOG MOV ©EMTBLK+2, URO i PEEK AT I/O PAGE 

3R RTXIT 

. SBTTL RTPOKE — Poke into I/O page 

RTPOKE emt is used to store a word into a cell in the I/O page. 

Inputs: 
Argl ~ Address of cell in I/O page to be accessed. 
Arg2 = Data value to be stored into I/O page cell. 



004767 001234 
016777 000004G 
000413 



RTPOKE: CALL 
000002G MOV 

BR 



PRVMEM ; Can we access physical memory? 

EMTBLK+4, SEMTBLK+2; STORE INTO CELL IN I/O PAGE 
RTXIT 



.SBTTL RTBIS — Bit set into I/O page 



RTBIS emt is used to do a bit set into a word in the I/O page. 



004767 001220 

056777 000004G 000002G 

000405 



Inputs: 
Argl = Address of cell in I/O page to be accessed. 
Arg2 = Data value to be ORed into I/O cell. 

RTBIS: CALL PRVMEM > Can we access physical memory? 

BIS EMTBLK+4, SEMTBLK+2; DO BIS INTO I/O PAGE CELL 
BR RTXIT 

.SBTTL RTBIC — Bit clear into I/O page 

RTBIC emt is used to do a bit clear into a word in the I/O page. 

Inputs: 
Argl = Address of cell in I/O page to be accessed. 
Arg2 = Data value to be used as a bit clear mask. 
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004767 001204 
046777 000004G 
000167 OOOOOOG 



RTBIC: CALL 
000002G BIC 

RTXIT: JMP 



PRVMEM > Can we access physical memory' 

EMTBLK+4, ©EMTBLK+2; DO BIC INTO I/O PAGE CELL 
EMTXIT J FINISHED WITH EMT 



< 



i 



TSRTX — Non-resident Real-Time MACRO V05. 05 Wednesday 18-Jan-89 14:16 Page 7 
RTIOMP — Map par7 to I/O page 



RTIOMP is called to map the upper 8Kb (par7) of the job's virtual 
address space to the I/O page. 



1 . SBTTL RTIOMP — Map par7 to I/O page 

\ « 2 

' 3 

4 

« 5 

6 000600 004767 001166 RTIOMP: CALL PRVMEM > Can we access I/O page? 

7 000604 052761 OOOOOOG OOOOOOG BIS #*IOMAP, LSW6(R1 )i SET FLAG SAYING WE ARE ACCESSING I/O PAGE 

< 8 000612 004767 OOOOOOG RTMAP: CALL SETMAP ; RELOAD MAPPING REGISTERS FOR JOB < 

9 000616 000766 BR RTXIT 

10 
* 11 .SBTTL RTRMMP — Map par7 to simulated Rmon < 

12 i 

13 i RTRMMP emt is used to map the par7 region of the user's job back to 

14 ; the simulated Rmon. i 

15 ; 

16 000620 042761 OOOOOOG OOOOOOG RTRMMP: BIC #*IOMAP, LSW6<R1 ) » SAY WE ARE NO LONGER MAPPED TO I/O PAGE 

17 000626 000771 BR RTMAP ; RELOAD MAPPING REGISTERS FOR JOB i 

i 
I 
C 
1 
< 

< i 

« I 

► < i 

» < ( 

< i 

« I 

4 I 

( 4 

< i 



TSRTX — 


- Non-resident R 


eal-Time 


. SPND - 


— Suspend job 's 


executi 


i 

2 








3 








4 








5 








6 


000630 


005361 


OOOOOOG 


7 


000634 


002023 




8 








9 


000636 


105767 


0000000 


10 


000642 


001020 




11 








12 








13 








14 


000644 






15 


000652 


005761 


OOOOOOG 


16 


000656 


002007 




17 


000660 


012700 


OOOOOOG 


18 


000664 


004767 


OOOOOOG 


19 


000670 


004767 


OOOOOOG 


20 


000674 


000763 




21 








22 








23 








24 


000676 






25 


000704 


000167 


OOOOOOG 


26 








27 








28 








29 








30 








31 








32 


000710 


005261 


OOOOOOG 


33 


000714 


000167 


OOOOOOG 
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SBTTL 



SPND 



Suspend job > s execution 



The .SPND emt is used to suspend the job's execution until a . RSUM 
is done. 

RTSPND: DEC LSPND(Rl) ; DEC SUSPENSION COUNTER FOR JOB 
BGE 1* ; BR IF WE SHOULD NOT SUSPEND JOB 

; Don't suspend job if running in a completion routine. 

TSTB CURCP iARE WE RUNNING IN A COMPLETION ROUTINE NOW? 

BNE 1* ;BR IF YES 

Suspend execution of the job until a .RSUM emt is done. 



3$: 



DISABL 




TST 


LSPND(Rl) 


BGE 


4* 


MOV 


#S*SPND, RO 


CALL 


GHDSPN 


CALL 


CHKABT 


BR 


3* 



DISABLE INTERRUPTS 

HAS RESUME BEEN ISSUED? 

BR IF WE SHOULD RESTART JOB 

JOB SUSPENDED STATE 

SUSPEND THE JOB #* ENABLES INTERRUPTS ** 
SEE IF WE WERE ABORTED WHILE ASLEEP 
ATTEMPT TO RESUME THE JOB 



Finished doing the . spnd — resume the job's execution. 



4$: 

1*: 



ENABL 
JMP 



i i i ENABLE INTERRUPTS 
; FINISHED WITH .SPND 



EMTXIT 
SBTTL .RSUM — Resume job's execution 



The . RSUM emt is used to resume execution of a job that is asleep 
because of doing a . SPND. 



RTRSUM: INC 
JMP 



LSPND(Rl) 
EMTXIT 



; INC JOB 'S . SPND COUNTER 
; THAT'S ALL WE HAVE TO DO 



< 
t 

I 

c 
f 

( 

« 

f 
t 
I 

i 
i 
« 
t 
I 
( 
( 



i 
t 
( 



TSRTX — Non-resident Real-Time MACRO V05. 05 
RTCMPL — Schedule a completion routine 



Wednesday lS-Jan-89 14: 16 Page 9 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
19 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



000724 
000726 
000732 
000736 
000742 
000746 
000750 
000752 
000760 
000766 
000774 
000776 
001004 
001012 
001016 
001020 
001024 
001026 
001032 
001036 
001042 
001046 



. SBTTL RTCMPL — Schedule a completion routine 
The RTCMPL EMT is used to schedule a completion routine for the job. 
The form of the EMT is 

EMT 375 

With RO pointing to the following EMT argument block: 

. BYTE 21, 140 

. WORD completion. routine_address 

. WORD completion_routine_priority 

. WORD value_to__pass__in_Rl 

. WORD 



000720 



000720 004767 OOOOOOG 



RTCMPL: 



010104 
116701 
110164 
012703 
012364 
012302 
001012 
112764 
116164 
112764 
000420 
1 1 2764 
112764 
116700 
060002 
020227 
101402 
012702 
1 1 0264 
012364 
005064 
013764 



OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 2*: 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



3*: 
4$: 



001054 004767 OOOOOOG 



001060 000167 OOOOOOG 



Get a completion routine queue element 

CALL GETQ > Get a free completion queue element 

Set up the queue element 

eue element pointer in R4 

index number 

number in queue element 

ter to block with EMT arguments 

ess of completion routine 

ution priority value 

iority not = O 

n-real-time execution state 

execution priority 
ndard compl rtn class priority 

-time completion class priority 
-time execution state 
real-time priority 
real-time priority 
■e we don't overflow 

to max allowed 
:ution priority value 
te to pass to completion routine in Rl 

n RO 

urrent kernel PAR 5 mapping 

Queue the completion routine request 

CALL GCOMPL > Queue the completion routine 

Finished 



MOV 


Rl, R4 


Carry qu 


MOVB 


CORUSR.Rl 


Get job 


MOVB 


R1,CQ*J0B<R4) 


. Set job 


MOV 


#EMTBLK+2, R3 


Get poin 


MOV 


(R3)+, CQ*RTN(R4) 


Set addr 


MOV 


<R3)+, R2 


Get exec 


BNE 


2* 


Br if pr 


MOVB 


#S*TWFN, CQ*RNS(R4)i Set no 


MOVB 


LBSPRI <R1 ) , CQSPRI <R4) ; Set 


MOVB 


#CP*STD, CQ*CP<R4)i Set sta 


BR 


4* 




MOVB 


#CP*RT, CQ*CP<R4) 


Set real 


MOVB 


#S*RT, CQ*RNS<R4> 


Set real 


MOVB 


VPRIHI,RO 


Get base 


ADD 


RO, R2 


Add base 


CMP 


R2, #MAXPRI 


Make sur 


BLOS 


3* 


Br if ok 


MOV 


#MAXPRI,R2 


Truncate 


MOVB 


R2, CQ*PRKR4) 


Set exec 


MOV 


<R3>+, CQ*R1(R4) 


Set valu 


CLR 


CQ*R0(R4) 


Pass i 


MOV 


@#KPAR5, CQ*PA5<R' 


*) ; Save c 



JMP 



EMTXIT 



» Finished with EMT 



( 
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RTEXJB — Gain exclusive use of 

4 
X 

2 
3 
4 
5 
6 
7 001064 004767 000662 

e 

9 
10 
11 001070 
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system 



110167 OOOOOOG 



13 

14 

15 001074 

16 

17 

18 

19 

20 

21 001100 

22 

23 

24 

25 001104 

26 

27 

28 

29 001110 



000167 OOOOOOG 



105067 OOOOOOG 



105267 OOOOOOG 



000167 OOOOOOG 



. SBTTL RTEXJB 



Gain exclusive use of system 



; The RTEXJB EMT is used to obtain exclusive use of the system 

; by a real-time job. All other jobs are suspended until the RTALJB 

i EMT is used to release exclusive access. 

i 

RTEXJB: CALL PRVRT * Do u»e have Real-time privilege? 

i 

■> Set flag that says this job has exclusive access to the system 

i 

MOVB R1,EXCJ0B J SAY THIS JOB HAS EXCLUSIVE ACCESS 
Finished 

JMP EMTXIT iEXIT FROM EMT 

.SBTTL RTALJB — Release exclusive access claim to system 

• —«.——,«——.„___.„._ ^ — _ ___ — — *«——.«.«»•.— .——«.--—.— .«.——=«.——«*=— ^-— ———**. „ — __ — ,_ «—«.„.__■ 

> The RTALJB emt is used to release exclusive access to the system. 

i 

RTALJB: CLRB EXCJOB ; SAY WE NO LONGER HAVE EXCLUSIVE ACCESS 

i 

j Set flag to cause execution scheduler to be called 

i 

INCB DOSCHD i CALL THE SCHEDULER LATER 

t 

* Finished 

JMP EMTXIT iEXIT FROM EMT 



c 

t 
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I 
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RTSPL — Set processor priority level 
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SBTTL RTSPL — Set processor priority level 



001114 

001120 

001124 

001130 
nm 1 -34 

WW 4. Jk u»*~T 

001142 
001146 



004767 
016702 
042702 
072227 

nao7A7 

050267 
000167 



000632 

0000020 

177770 

000005 

000340 

000000G 

000000G 



0000000 



The RTSPL EMT is used to set the processor priority level that 
will be used while running in user mode. 



el (O to 7). 

Do u»e have real-time privilege? 

GET REQUESTED PROCESSOR PRIORITY LEVEL 

CLEAR ALL BUT PRIORITY LEVEL FIELD 

POSITION TO PRIORITY FIELD IN PS 
m cad ni n DpTnoTTv ctci n tm oe 

STORE NEW PRIORITY LEVEL INTO PS 
DO EMT EXIT WHICH WILL LOAD PS 



Inputs: 




Argl = Pr 


ocessor priority lev 


PL: CALL 


PRVRT ; 


MOV 


EMTBLK+2, R2 ; 


BIC 


#177770, R2 i 


ASH 


#5, R2 : 


WAV 


#340, EMTPS ; 


BIS 


R2, EMTPS ; 


JMP 


EMTXIT ■> 



i 

i 

c 
I 
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i 
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« 

t 
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TSRTX — 
RTCVEC - 

4 
1 

2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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■ Connect completion routine to interrupt vector 



. 3BTTL RTCVEC — Connect completion routine to interrupt vector 

RTCVEC emt is used to connect an interrupt vector to a user completion 
routine. 

Inputs: 
Argl = Address of interrupt vector. 
Arg2 = Address of completion routine. 
Arg3 = Priority of completion routine <0 to 7). 

Entry point for directly connected interrupt service routine 



001152 004767 000574 RTDVEC: CALL 

001156 032761 0000000 0000000 BIT 



001164 001004 

001166 012700 000003 

001172 000167 OOOOOOG 

001176 012705 OOOOOOG 

001202 000401 



001204 005005 



001206 016700 000002G 

001212 006200 

001214 010003 

001216 004767 000570 

001222 103407 

001224 126201 OOOOOOG 

001230 001414 

001232 012700 000002 

001236 000167 OOOOOOG 



001242 005000 

001244 004767 000542 

001250 103004 

001252 012700 000001 

001256 000167 OOOOOOG 



1$: 



BNE 
MOV 
JMP 
MOV 

BR 



Do we have real-time privilege? 

IS JOB LOCKED IN MEMORY? 

BR IF YES 

RETURN EMT ERROR CODE 3 IF NOT 



PRVRT 

#*MLOCK, LSW6(R1). 

1* 

#3, RO 

SETERR 

#VF*DIR, R5 i SET DIRECTLY-CONNECTED INTERRUPT FLAG 

RTXVEC i ENTER COMMON CODE 



Entry point for completion routine type service routine 
RTCVEC: CLR R5 ; CLEAR DIRECTLY-CONNECTED INTERRUPT FLAG 

* 

* See if interrupt vector is already connected to a service routine 

i 

GET ADDRESS OF VECTOR WE ARE CONNECTING TO 

DROP LOW-ORDER BIT 

SAVE VECTOR VALUE 

SEE IF THERE IS A VECTOR CONTROL BLOCK ALREADY 

BR IF NO CONTROL BLOCK FOR THIS VECTOR 

IS OUR JOB THE ONE THAT OWNS THE VECTOR? 

BR IF YES 

ERROR CODE 2 MEANS SOMEONE ELSE OWNS VECTOR 

Get a vector control block and set it up. 

>GET A FREE VECTOR CONTROL BLOCK 

;BR IF GOT ONE 

; NO FREE VECTOR CONTROL BLOCKS 



Found a free vector control block (Address is in R2). 
Set it up. 



RTXVEC: MOV 


EMTBLK+2, RO 


ASR 


RO 


MOV 


RO, R3 


CALL 


SRCVEC 


BCS 


1* 


CMPB 


VC*J0B<R2),R1 


BEQ 


2* 


MOV 


#2. RO 


JMP 


SETERR 


; Vector is 


free. Get a vec 


1*: CLR 


RO 


CALL 


SRCVEC 


BCC 


2* 


MOV 


#1, RO 


JMP 


SETERR 



001262 110162 OOOOOOG 

001266 110362 OOOOOOG 

001272 110562 OOOOOOG 

001276 016762 000004G OOOOOOG 

001304 016700 000006G 

001310 042700 177770 

001314 110062 OOOOOOG 



2*: 



MOVB 

MOVB 

MOVB 

MOV 

MOV 

BIC 

MOVB 



Rl, VC*J0B(R2> 
R3, VC*VEC<R2) 
R5, VC*FLG<R2) 



SET JOB NUMBER 

SET ADDRESS OF VECTOR 

SET CONTROL FLAGS <VF*xxx> 



EMTBLK+4, VC*RTN<R2> ; SET ADDRESS OF COMPLETION ROUTINE 



EMTBLK+6, RO 

# A C7, RO 

RO, VC*PRI(R2) 



GET COMPLETION ROUTINE PRIORITY 

FORCE TO RANGE 0-7 

SAVE PRIORITY IN VECTOR CONTROL BLOCK 



Make vector point to vector control block. 



t 

f 

f 
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< 
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i 

« 
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i 

i 
i 
I 

i 

t 
t 



ASL 


R3 


MOV 


R2, <R3) + 


MOV 


#340, (R3) 


inished 




JMP 


EMTXIT 



i 
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' RTCVEC — Connect completion routine to interrupt vector 

58 001320 006303 ASL R3 i SET ADDRESS OF VECTOR 

> I 59 001322 010223 MOV R2, <R3)+ i SET VECTOR PC — SEND INT TO INT CONTROL BLOCK 

» 60 001324 012713 000340 MOV #340, <R3) > SET VECTOR PS 

61 > 

' • 62 

63 ; 

■ 64 001330 000167 OOOOOOG 

t 

i 
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I 

> i 
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TSRTX - 
RTRVEC 
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— Release interrupt vector 



i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
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24 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL RTRVEC — Release interrupt vector 

RTRVEC emt is used to release an interrupt vector connection. 

Inputs: 
Argl - Address of vector. 



001334 004767 000412 

001340 016700 000002G 

001344 006200 

001346 004767 000440 

001352 103405 

001354 120162 0000000 

001360 001002 

001362 004767 000004 

001366 000167 OOOOOOG 



RTRVEC: CALL 
MOV 
ASR 
CALL 
BCS 
CMPB 
BNE 
CALL 

1*: JMP 



PRVRT 

EMTBLK+2, RO 

RO 

SRCVEC 

1* 

Rl* VC*J0B(R2) 

1* 

RELVEC 

EMTXIT 



Do we have real-time privilege? 

GET ADDRESS OF VECTOR 

DROP LOW-ORDER BIT 

SEARCH FOR VECTOR CONTROL BLOCK 

BR IF NONE FOR THIS VECTOR 

DO WE OWN THE VECTOR? 

BR IF NOT 

RELEASE THE VECTOR 



RELVEC is called to release a user's link with an interrupt vector. 
The vector is set to point to the unexpected interrupt routine and 
the vector control block is freed. 



Inputs: 
R2 = Address of vector control block. 



001372 010346 



RELVEC: MOV 



R3, -<SP) 



001374 
001402 



001404 
001406 
001412 
001414 
001416 
001422 
001424 
001430 
001434 
001436 



001442 
001446 
001450 
001454 
001456 
001462 
001464 



132762 
001031 



005003 
1 56203 
006303 
010300 
105767 
001005 
012720 
012710 
000414 
012720 



072327 
010346 
042716 
006303 
042703 
052603 
010310 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
000340 

OOOOOOG 



177776 
177760 
177437 



If .DEVICE list already specified a reset address for this vector, 
don't make it point to normal unexpected-interrupt location. 

BITB #VF*DET, VC*FLG<R2)j Did .DEVICE disconnect the interrupt? 
BNE 2* »Br if yes 

Set interrupt vector to point to unexpected interrupt routine. 

; GET ADDRESS OF INT VECTOR FROM VECTOR CONTROL 

; CONVERT TO REAL ADDRESS 

SHOULD WE CRASH OR IGNORE UNEXPECTED INTS? 

BR IF WE SHOULD CRASH 

SET PC TO ROUTINE TO IGNORE INTS 

SET PS PRI0=7 FOR INTERRUPT 



1$: 



CLR 


R3 


BISB 


VC*VEC<R2),R3 


ASL 


R3 


MOV 


R3> RO 


TSTB 


VUXIFL 


BNE 


1* 


MOV 


#UEXRTN> <R0)+ 


MOV 


#340, <R0) 


BR 


2* 


MOV 


#UEXINT, <R0) + 



i SET VECTOR TO GO TO UNEXPECTED INT ROUTINE 



Set PS in interrupt vector to encode interrupt address. 



ASH #-2, R3 

MOV R3, -<SP> 

BIC # A C17, <SP) 

ASL R3 

BIC # A C340, R3 

BIS <SP)+, R3 

MOV R3, (RO) 



iDROP LOW-ORDER 2 BITS OF VECTOR ADDRESS 

CLEAR ALL BUT N-Z-V-C FIELDS 
SHIFT OVER ADDRESS TO AVOID T FLAG 
CLEAR ALL BUT PRIORITY FIELD 
COMBINE N-Z-V-C WITH PR 10 FIELD 
STORE INTO VECTOR PS WORD 



f 
I 
f 

i 

i 

i 

i 

f 

c 

i 

i 

< 

4 

i 

i 
I 

c 



Free the vector control block 
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RTRVEC — Release interrupt vector 



58 

59 001466 105062 OOOOOOG 

60 001472 105062 OOOOOOG 
61 

62 
63 

64 001476 012603 

65 001500 000207 



>*: 



CLRB 


VC*J0B<R2) 


CLRB 


VC*VEC<R2> 


Finished 




MOV 


<SP)+, R3 


RETURN 
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t 
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i 
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i 
i 
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< 
( 



f 



t 

i 
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t 
i 
i 
c 

1 I 
i 
i 

( 
< 
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001502 004767 000244 



001506 
001512 



001514 
001522 



001524 
001530 
001534 



OOOOOOG 
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RTDEV -- . DEVICE Emt 
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. SBT7L RTDEV 



DEVICE Emt 



; The .DEVICE emt is used to declare a list of addresses and values to 

> be stored when a job exits. 

> 

RTDEV: CALL PRVRT ; Do we have real-time privilege? 

i Determine if this is a simple or linked type list 



105767 
001004 



016767 
000407 



016746 
106677 
016767 



1*: 



TSTB 
BNE 



EMTBLK 
2$ 



i SIMPLE OR LINKED LIST? 
;BR IF LINKED LIST 



Simple (non-linked) list 



000002G OOOOOOG 



MOV 
BR 

Linked list 



OOOOOOG 
000002G 
000002G 



2*: 



OOOOOOG 



MOV 

MTPD 

MOV 



001542 000167 OOOOOOG 



* Finished 
9$: JMP 



EMTBLK+2, DEVLS J SET ADDRESS OF . DEVICE LIST 



9* 



DEVLL, -(SP) 
SEMTBLK+2 
EMTBLK+2, DEVLL 



EMTXIT 



; FINISHED 



PUSH ADDRESS OF CURRENT LIST HEAD 
STORE AS FORWARD LINK FROM NEW LIST 
SAVE ADDRESS OF NEW LIST 
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RTSTOP — Real-time cleanup at end of job execution 



2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


001546 


010246 




14 








15 








16 








17 








18 


001550 


016702 


OOOOOOG 


19 


001554 


001415 




20 


001556 


005067 


OOOOOOG 


21 


001562 


106522 




22 


001564 


012667 


OOOOOOG 


23 


001570 


106522 




24 


001572 


012600 




25 


001574 


001765 




26 


001576 


106522 




27 


001600 


012610 




28 


001602 


004767 


000112 


29 


001606 


000770 




30 








31 


001610 


016702 


OOOOOOG 


32 


001614 


001412 




33 


001616 


005067 


OOOOOOG 


34 


001622 


106522 




35 


001624 


012600 




36 


001626 


001405 




37 


001630 


106522 




38 


001632 


012610 




39 


001634 


004767 


000060 


40 


001640 


000770 




41 








42 








43 








44 


001642 


012702 


OOOOOOG 


45 


001646 


020227 


OOOOOOG 


46 


001652 


103010 




47 


001654 


120162 


OOOOOOG 


48 


001660 


001002 




49 


001662 


004767 


177504 


50 


001666 


062702 


OOOOOOG 


51 


001672 


000765 




52 








53 








54 








55 


001674 


120167 


OOOOOOG 


56 


001700 


001005 




57 


001702 


105767 


OOOOOOG 



. SBTTL RTSTOP 



Real-time cleanup at end of job execution 



RTSTOP is called when a job exits for any reason. 
It does any necessary real-time cleanup for the job. 
This consists of the following things: 

1. Process any specified .DEVICE list. 

2. Disconnect any interrupt vectors attached to the job. 

3. Release exclusive access of system if job has gotten it. 

Inputs: 
Rl = Current job number 

RTSTOP : MOV R2, - < SP > 

If job did a .DEVICE emt, process the device reset list. 



1$: 



Process linked type lists first 



2*: 



3$: 



4*: 



MOV 


DEVLL, R2 


BEG. 


3* 


CLR 


DEVLL 


MFPD 


(R2) + 


MOV 


<SP)+, DEVLL 


MFPD 


(R2) + 


MOV 


<SP>+, RO 


BEG 


1* 


MFPD 


<R2> + 


MOV 


<SP>+, <R0> 


CALL 


CKVREL 


BR 


2* 


rocess 


non-linked t 


MOV 


DEVLS, R2 


BEG 


INTSTP 


CLR 


DEVLS 


MFPD 


<R2) + 


MOV 


<SP>+, RO 


BEG 


INTSTP 


MFPD 


<R2) + 


MOV 


<SP)+, (RO) 


CALL 


CKVREL 


BR 


4* 



IS THERE A LINKED TYPE LIST TO PROCESS? 

BR IF NOT 

CLEAR IN CASE WE TRAP 

GET ADDRESS OF FORWARD LINK FROM LIST HEAD 

SAVE THIS ADDRESS AS NEW HEAD OF LINKED LIST 

GET ADDRESS TO STORE INTO 

BR IF REACHED END OF LIST 

GET VALUE TO STORE INTO CELL 

DO THE STORE 

See if uie just released an interrupt conctn. 

GO PROCESS NEXT ITEM IN LIST 

sts 

ANY NON-LINKED . DEVICE LIST? 

BR IF NOT 

CLEAR IN CASE WE TRAP 

GET ADDRESS TO STORE INTO 

BR IF REACHED END OF LIST 

GET VALUE TO STORE 

DO THE STORE 

See if we released an interrupt connection 

GO PROCESS NEXT ITEM IN LIST 



Disconnect all interrupt vectors associated with this job 



INTSTP: MOV 
1*: 



?*: 



POINT TO 1ST VECTOR CONTROL BLOCK 

CHECKED ALL VECTOR CONTROL BLOCKS? 

BR IF YES 

IS THIS VCB IN USE BY THIS JOB? 

BR IF NOT 

RELEASE THE VECTOR AND THE VCB 

POINT TO NEXT VCB 



If job has exclusive access to the system, release it 



MOV 


#VCBBAS, R2 


CMP 


R2, #VCBEND 


BHIS 


4* 


CMPB 


Rli VC*J0B<R2> 


BNE 


2* 


CALL 


RELVEC 


ADD 


#VC**SZ> R2 


BR 


1* 



4*: 



CMPB 


Rl.EXCJOB 


BNE 


3* 


TSTB 


CINFLG 



DOES THIS JOB HAVE EXCLUSIVE ACCESS TO SYS? 

BR IF NOT 

IS THIS JOB DOING A CHAIN NOW? 
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58 001706 001002 BNE 3* > IF YES THEN RETAIN EXCLUSIVE ACCESS 

59 001710 105067 000000G CLRB EXCJOB i RELEASE EXCLUSIVE ACCESS 

60 ; 

61 ; 

62 ; 

63 001714 012602 3$: 

64 001716 000207 



BNE 


3* 


CLRB 


EXCJOB 


Finished 




MOV 


(SP)+,R2 


RETURN 





TSRTX — 
RTSTOP - 

1 

2 

3 

4 

5 

6 
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001720 010246 



001722 
001726 
001730 
001732 
001736 



020027 
103007 
006200 
004767 
103403 



000500 



000054 



See if the cell being stored into by the .DEVICE list is an interrupt 
vector. If so> mark the vector control block so that u»e don't alter 
the interrupt location later. 

Inputs: 
RO = Address of cell being modified by .DEVICE list processing. 

CKVREL: MOV R2, -<SP) 

See if location being modified is an interrupt vector 

i Could this be an interrupt vector? 

; Br if not 

? Get vector address / 2 

.Try to find vector control block 

; Br if no vector attachment 

Set flag in vector control block which prevents us from connecting 
this vector to unexpected-interrupt location later. 



CMP 


RO, #500 


BHIS 


9* 


ASR 


RO 


CALL 


SRCVEC 


BCS 


9* 



001740 152762 0000000 OOOOOOG 



001746 
001750 



012602 
000207 



BISB 

> Finished 

9$: MOV 

RETURN 



#VF*DET, VC*FL0<R2) ; Say vector has been disconnected 



<SP)+, R2 



t 
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1 
2 
3 
4 
5 
6 

7 001752 032767 0000000 OOOOOOG PRVRT 

8 001760 001003 

9 001762 005000 

10 001764 000167 OOOOOOG 

11 001770 000207 9*: 
12 
13 
14 
15 
16 
17 

18 001772 032767 OOOOOOG OOOOOOG PRVMEM: BIT 

19 002000 001003 BNE 

20 002002 005000 CLR 

21 002004 000167 OOOOOOG JMP 



.SBiTL *# Subroutines ** 

. SBTTL PRVRT — Determine if job has real-time privilegi 

Determine if the job has real— time privilege. 
If not; error code is returned for the EMT. 



iDoes job have real-time privilege? 

i Br if yes 

i Return error code O 



RETURN 

.SBTTL PRVMEM — Check for access authorization to phys memory 



BIT 


#PO*RT, PRIVCO 


BNE 


9* 


CLR 


RO 


JMP 


SETERR 



Determine if the job can access physical memory. 
If not. error code is returned for the EMT. 



#PO*MEM> PRIVCO i Can tue access physical memory?' 

9* > Br if yes 

RO > Return error code 

SETERR 



22 002010 000207 



9*: 



RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 002012 012702 0000000 

14 002016 020227 OOOOOOG 

15 002022 103006 

16 002024 120062 OOOOOOG 

17 002030 001405 

18 002032 062702 OOOOOOG 

19 002036 000767 

20 002040 000261 

21 002042 000401 

22 002044 000241 

23 002046 000207 

24 000001 
Errors detected: 

##* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 153 Words < 1 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:20.11 
, LP: TSRTX«DK: TSRTX/C/N: SYM 



SBTTL SRCVEC 



Search for vector control block 



SRCVEC is called to search for a vector control block associated 
with a particular interrupt vector. 

Inputs: 
RO = Address of vector / 2 

Outputs: 
C-flag set on return if no vector control block found for vector. 
R2 = Address of vector control block if one found. 



;GET ADDRESS OF BASE OF CONTROL BLOCK AREA 

i CHECKED ALL BLOCKS? 

; BR IF YES 

; IS THIS CONTROL BLOCK FOR THE VECTOR? 

; BR IF YES 

i POINT TO NEXT VECTOR CONTROL BLOCK 

i SIGNAL FAILURE ON RETURN 

; SIGNAL SUCCESS ON RETURN 



cpn itrr- ■ 


MOV 


#VCBBAS, R2 


1*: 




CMP 


R2, #VCBEND 






BHIS 


4* 






CMPB 


RO, VC*VEC<R2) 






BEG 


2$ 






ADD 


#VC**SZ, R2 






BR 


1* 


4*: 




SEC 








BR 


3* 


2*: 




CLC 




3*: 




RETURN 
. END 
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14-21* 14-22 

EMTPS 1-37 11-13* 11-14* 

EMTXIT 1-34 3-50 4-26 4-72 5-9 5-16 6-49 8-25 8-33 9-54 10-15 10-29 

t 11-15 12-64 13-16 14-26 

EXCJOB 1-43 10-11* 10-21* 15-55 15-59* 

GETQ 1-48 9-21 

INTPRI 1-37 8-24 

INTSTP 15-32 15-36 15-44# 

KPAR5 1-46 9-46 

LBSPRI 1-38 9-33 

LPARBS 1-34 3-36 

LSPND 1-41 8-6* 8-15 8-32* 

LSW11 1-47 3-17 

LSW2 1-34 

LSW6 1-35 5-8* 5-15* 7-7* 7-16* 12-14 

MAXPRI 1-48 9-40 9-42 



PS l-53# 8-14* 8-24* 

QCOMPL 1-36 9-50 

QHDSPN 1-42 8-18 

RDAR 1-44 3-22 

RDDR 1-44 3-20 

RELVEC 13-15 13-26# 15-49 
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*IOMAP 1-35 7-7 7-16 

*MLOCK 1-38 5-8 5-15 12-14 

*UDSPC 1-47 3-17 

BADEMT 1-34 2-25 

CHKABT 1-41 8-19 

CINFLG 1-43 15-57 

CKVREL 15-28 15-39 16~9# 

CORUSR 1-48 9-26 

CPURT 1-46 9-36 

CP*STD 1-46 9-34 

CQ*CP 1-46 9-34* 9-36* 

CO* JOB 1-36 9-27* 

CQ*PA5 1-42 9-46* 

CQ*PRI 1-42 9-33* 9-43* 

CQ*RO 1-36 9-45* 

CQ*R1 1-47 9-44* 

CQ*RNS 1-42 9-32* 9-37* 

CQ*RTN 1-36 9-29* 

CUPARO 1-45 1-47 4-50* 

CUPDRO 1-45 1-47 4-65* 

CURCP 1-41 8-9 

DEVLL 1-42 14-20 14-22* 15-18 15-20* 15-22* 

DEVLS 1-42 14-15* 15-31 15-33* 

DOSCHD 1-43 10-25* 

EMTBLK 1-34 2-21 3-45 3-55 4-14 4-30 4-36 4-57 4-60 6-12 6-24 6-24* ( 

6-36 6-36* 6-48 6-48* 9-28 11-10 12-27 12-51 12-52 13-9 14-10 14-15 



t 

i 



MXRTFN 2-23 2-51# 

OVRHC 1-39 

PO*LOK 1-38 5-5 

PO*MEM 1-40 17-18 

PO*RT 1-40 17-7 

PRIVCO 1-40 5-5 17-7 17-18 

PRVMEM 4-13 6-11 6-23 6-35 6-47 7-6 17-18# * 

PRVRT 10-7 11-9 12-13 13-8 14-6 17-7# 
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RPAR 


1-44 


3-30 


4-20* 


4- 


-48# 




RPDR 


1-44 


3-28 


4-21* 


4- 


-63* 




RTALJB 


2-44 


10-21# 










RTBIC 


2-35 


6-47# 










RTBIS 


2-34 


6-35# 










RTCMPL 


2-48 


9-17# 










RTCVAD 


2-31 


3-18 


3-27# 








RTCVC1 


3-19 


3-27 


3-55# 








RTCVC2 


3-23 


3-31# 










RTCVC3 


3-21 


3-29 


3-36# 








RTCVC4 


3-32 


3-40# 










DTrimA 
r\ i w viyH 


2-49 


3-17# 










RTCVEC 


2-40 


12-23# 










RTDEV 


1-30 


14-6# 










RTDVEC 


2-47 


12-13# 










RTEMT 


1-30 


2-17# 










RTEMTV 


2-26 


2-3 1# 


2-51 








RTEXJB 


2-43 


10-7# 










RTFREZ 


2-42 


5-5# 










RTIOMP 


2-36 


7-6# 










RTLOCK 


1-37 


2-38 










RTMAP 


7-8# 


7-17 










RTPEEK 


2-32 


6-ll# 










RTPOKE 


c£~*"ww 


6-23# 










RTRMMP 


2-37 


7-16# 










RTRSUM 


1-29 


8-32# 










RTRVEC 


2-41 


13-8# 








t 


RTSPL 

RTSPND 

RTSTOP 

RTUNLK 

RTVMAP 


2-45 
1-29 
1-30 
2-39 
2-46 


11 -9# 
8-6# 

15-13# 
5-15# 
4-13# 










RTXIT 


6-13 


6-25 


6-37 


6- 


-49# 




RTXVEC 


12-19 


12-27# 










S*RT 


1-48 


9-37 










S*SPND 


1-41 


8-17 










5*TWFN 


1-38 


9-32 










SETERR 


1-34 


4-34 


12-17 


12- 


-35 




SETMAP 


1-35 


4-25 


7-8 








SRCVEC 


12-30 


12-40 


13-11 


16- 


-16 




TSRTX 


1-13# 












UEXINT 


1-36 


13-45 










UEXRTN 


1-39 


13-42 










UPARO 


1-45 


4-49* 










UPDRO 


1-45 


4-64* 










UPMODE 


1-46 


1-46 










URO 


1-37 


6-12* 










VC**SZ 


1-40 


15-50 


18-18 








VCSFLG 


1-44 


12-50* 


13-31 


16- 


-22* 




VC*JOB 


1-35 


12-32 


12-48* 


13- 


-13 




VC*PRI 


1-37 


12-54* 










VC*RTN 


1-35 


12-51* 










VC*VEC 


1-35 


12-49* 


13-37 


13- 


-60* 




VCBBAS 


1-40 


15-44 


18-13 






i 


VCBEND 


1-40 


15-45 


18-14 








VF*DET 


1-44 


13-31 


16-22 







7-9 



12-43 17-10 17-21 

18-13# 



13-59* 15-47 

I 

18-16 

i 



t 
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r 



VF*DIR 


1-44 


12-18 


VPRIHI 


1-48 


9-38 


VUXIFL 


1-39 


13-40 
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DISABL 


l-54# 


8-14 


ENABL 


l-58# 


8-24 


OCALL 


1-19# 
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